home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue40 / Construc / UNIT1.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1998-10-31  |  1.9 KB  |  66 lines
  1. unit Unit1;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   Db, DBTables, mxtables, Grids, mxgrid, mxDB, mxstore, ExtCtrls, mxpivsrc,
  6.   TeeProcs, TeEngine, Chart, mxgraph, Series;
  7.  
  8. type
  9.   TForm1 = class(TForm)
  10.     DecisionPivot1: TDecisionPivot;
  11.     DecisionCube1: TDecisionCube;
  12.     DecisionSource1: TDecisionSource;
  13.     DecisionGrid1: TDecisionGrid;
  14.     DecisionQuery1: TDecisionQuery;
  15.     DecisionGraph1: TDecisionGraph;
  16.     Series2: TPieSeries;
  17.     Series3: TPieSeries;
  18.     Series1: TLineSeries;
  19.     Series4: TLineSeries;
  20.     Series6: TLineSeries;
  21.     Series7: TLineSeries;
  22.     Series8: TLineSeries;
  23.     Series9: TLineSeries;
  24.     Series10: TLineSeries;
  25.     Series5: TBarSeries;
  26.     procedure DecisionGrid1DecisionDrawCell(Sender: TObject; Col,
  27.       Row: Integer; var Value: String; var aFont: TFont;
  28.       var aColor: TColor; AState: TGridDrawState;
  29.       aDrawState: TDecisionDrawState);
  30.     procedure DecisionPivot1Click(Sender: TObject);
  31.   end;
  32.  
  33. var
  34.   Form1: TForm1;
  35.  
  36. implementation
  37. {$R *.DFM}
  38.  
  39. type
  40.   THackDecisionGrid = class(TDecisionGrid)
  41.   public
  42.     property ColWidths;
  43.   end;
  44.  
  45. procedure TForm1.DecisionGrid1DecisionDrawCell(Sender: TObject; Col,
  46.   Row: Integer; var Value: String; var aFont: TFont; var aColor: TColor;
  47.   AState: TGridDrawState; aDrawState: TDecisionDrawState);
  48. begin
  49.   if (Col <= 0) and (Row <= 0) then
  50.   begin
  51.     if DecisionGrid1.FixedCols > 1 then
  52.       if DecisionGrid1.Cells[-2,-1] = 'OS' then
  53.         THackDecisionGrid(DecisionGrid1).ColWidths[1] := 56
  54.       else THackDecisionGrid(DecisionGrid1).ColWidths[1] := 110;
  55.     if DecisionGrid1.FixedCols > 2 then
  56.       THackDecisionGrid(DecisionGrid1).ColWidths[2] := 110
  57.   end
  58. end;
  59.  
  60. procedure TForm1.DecisionPivot1Click(Sender: TObject);
  61. begin
  62.   DecisionGraph1.Visible := not DecisionGraph1.Visible
  63. end;
  64.  
  65. end.
  66.